home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-09 / floppies.zip / FLOPPY.ZIP / FLOPPY.SC < prev    next >
Text File  |  1992-03-15  |  2KB  |  51 lines
  1. ;-------------FLOPPY.SC
  2. ;-------------------MENU FOR FLOPPY CATALOGGING
  3. CLEARALL
  4. ;------------------------------DISPLAY OPENING SCREEN.
  5. STYLE ATTRIBUTE 30
  6. CLEAR
  7. @ 8,15
  8. ?? "GARRY'S FLOPPY DISK CATALOGGING AND REPORTING SYSTEM"
  9.  
  10. ;@ 10,1
  11. ;TEXT
  12. @ 11,12 ?? " ╔═════════════════════════════════════════════════════════╗ "
  13. @ 12,12 ?? " ║ SELECT OPTIONS FROM THE MENU ABOVE BY EITHER USING      ║ "
  14. @ 13,12 ?? " ║ CURSOR KEYS TO HIGHLIGHT OR BY TYPING THE FIRST LETTER  ║ "
  15. @ 14,12 ?? " ║ OF THE OPTION. MOVING THE CURSOR DISPLAYS A BRIEF       ║ "
  16. @ 15,12 ?? " ║ DESCRIPTION OF EACH OPTION.                             ║ "
  17. @ 16,12 ?? " ╚═════════════════════════════════════════════════════════╝ "
  18. ;ENDTEXT
  19. ;-------------------SET UP MENU LOOP
  20. CHOICE = " "
  21. WHILE CHOICE <> "EXIT"
  22.       ;----------------SHOW OPTION MENU.
  23.       SHOWMENU
  24.           "ADD" : "ADD NEW FILES",
  25.           "PRINT" : "PRINT SPECIFIED REPORT",
  26.           "EDIT" : "EDIT EXISTING FILES",
  27.           "QUERY" : "FIND INFORMATION BY SPECIFICATION",
  28.           "BACK UP/UTILITIES" : "BACK UP DATA FILES/FORMAT/TIME/DATE/NEW DISK",
  29.           "EXIT" : "RETURN TO OPERATING SYSTEM "
  30.       TO CHOICE
  31.       ;------------------PLAY SCRIPT OF CHOICE.
  32.       SWITCH
  33.          CASE CHOICE = "ADD" :
  34.               PLAY "ADDFLOP"
  35.          CASE CHOICE = "PRINT" :
  36.               PLAY "prtFLOP"
  37.          CASE CHOICE = "EDIT" :
  38.               PLAY "FLOPALL"
  39.          CASE CHOICE = "QUERY" :
  40.               PLAY "QUERFLOP"
  41.          CASE CHOICE = "BACK UP/UTILITIES" :
  42.               PLAY "FLOPBAC"
  43.      ENDSWITCH
  44. ENDWHILE
  45. ;------------------EXIT
  46. CLEAR
  47. STYLE REVERSE
  48. @ 12,24
  49. ?? "RETURNING TO MAIN MENU..."
  50. MENU {EXIT}{YES}
  51.